home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / DISKTEST.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.6 KB  |  47 lines
  1. (*$C-*)
  2. module disktest; (*$E mos *)
  3.  
  4. from randomgen import randomcard;
  5. from sysutil0 import varequal;
  6. from files import file, access, replacemode, open, create, close;
  7. from binary import readblock, writeblock;
  8. import tosio; from inout import WriteString, write, writecard, keypressed,
  9.         writeln;
  10.  
  11. const a = 10000;
  12.  
  13. var bl2, bl: array [1..a] of CARDINAL;
  14.     i,j: CARDINAL;
  15.     n: LONGCARD;
  16.     f: file;
  17.     
  18.  
  19. begin
  20.   n:= 0;
  21.   repeat
  22.     for i:= 1 to a do
  23.       bl [i]:= randomcard (0,maxcard)
  24.     end;
  25.     for j:= 1 to 10 do
  26.       inc (n);
  27.       write (33c);
  28.       write ('H');
  29.       writecard (n,7);
  30.       create (f, 'e:\test.dat', writeonly, replaceold);
  31.       writeblock (f, bl);
  32.       close (f);
  33.       open (f, 'e:\test.dat', readonly);
  34.       readblock (f, bl2);
  35.       close (f);
  36.       if ~varequal (bl, bl2) then
  37.         writeln;
  38.         WriteString ('fehler !');
  39.         halt
  40.       end;
  41.       if keypressed () then return end
  42.     end
  43.   until false
  44. end disktest.
  46. (* $FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$00000377$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2$FFF631A2Ç$000001D1T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000003EC$000003D2$00000377$000001D1$00000283$000000E8$00000107$FFF631A2$FFF631A2$FFF631A2$000001D1$0000017A$000001A0$0000022B$000003DB$FFF631A2öÇÇ*)
  47.